home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet multimedia / Animacje, filmy i prezentacje / Modelowanie 3D / K-3D 0.6.5.0 / k3d-all-in-one-setup-0.6.5.0.exe / k3d-setup-0.6.5.0.exe / share / lsystem / trees2.ls < prev    next >
Encoding:
Text File  |  2005-02-12  |  807 b   |  30 lines
  1. # --- L-System Parser/Mutator --- Lj Lapre ----------------------------------
  2. #
  3. # 'Trail off Trees'. This is a setup to get all development
  4. #                    stages of a tree together in one image.
  5. #
  6. 14
  7. 5
  8. 30
  9. #
  10. &(90)H
  11. #
  12. H=f(1500)TcH                                    # move forward and plant a tree
  13. #
  14. T=[^(90)FFS]                                    # the actual tree
  15. S=FFR>(120)R>(120)R>(60)S                       # three branches per segment
  16. R=[Ba]                                          # a single branch
  17. #
  18. a=$tF[Cx]Fb                                     # see bop08.ls
  19. b=$tF[Dy]Fa
  20. #
  21. B=&B                                            # angle increments
  22. C=+C
  23. D=-D
  24. #
  25. x=a                                             # apical elay
  26. y=b
  27. #
  28. F='(1.25)F'(.8)                                 # elongation rate
  29. @
  30.